Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d12/v10n22.arc/STATIC.PAS

Pascal/Delphi Source File | 1991-12-08 | 559b | 32 lines

STATIC.PAS
COMPLETE LISTING


PROGRAM TestStaticVariables;
CONST Limit          = 10;

  PROCEDURE Proc1;
  CONST Counter : Integer = 0;
  BEGIN
    Inc(Counter);
    IF Counter > Limit THEN Halt;
    WriteLn('First Counter :', Counter:5);
  END; { Proc1 }

  PROCEDURE Proc2;
  CONST Counter : Integer = 0;
  BEGIN
    Inc(Counter);
    IF Counter > Limit THEN Halt;
    WriteLn('Second Counter :', Counter:5);
  END; { Proc2 }

BEGIN
  WHILE True DO
    BEGIN
      Proc1;
      Proc2;
    END;
END. { TestStaticVariables }